
reforms_histogram <-
  read.csv("./replication_file/_4_data/cities_reform.csv") %>%
  ggplot(aes(x=as.numeric(as.character(Year)))) +
  geom_histogram(color = "black", fill = "grey50", bins = 65) +
  theme_bw() +
  xlim(1880, 1945) +
  ylab("") +
  xlab("") +
  theme(panel.grid.minor = element_blank(), 
        panel.grid.major.x = element_blank(),
        axis.line.y.left = element_blank(),
        legend.position = "none",
        strip.background = element_blank(),
        legend.title = element_blank(),
        axis.ticks.y.left = element_blank(),
        axis.line = element_line(colour = "black"),
        panel.border = element_blank()) +
  theme(text=element_text(size=10))

ggsave('./replication_file/_5_outputs/figures/figure_2.png', plot = reforms_histogram, width=8, height=5)
#ggsave('../Apps/Overleaf/merit paper/outputs/descriptive_reforms_year.pdf', plot = reforms_histogram, width = 8, height=5)

